home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / PowerFantasm™ 4.19a / Beginners guide / GUIDE EXAMPLES / EXAMPLE4.S < prev    next >
Text File  |  1997-02-09  |  1KB  |  30 lines
  1. *********************************************************
  2. *FILENAME:    EXAMPLE4.S                              *
  3. *DESCRIPTION:PROGRAM TO ADD 3 NUMBERS TOGETHER          *
  4. *    AND PRINT THE RESULT IN A WINDOW.               *
  5. *    WRITTEN IN POSITION INDEPENDANT CODE            *
  6. *********************************************************
  7.  
  8. EXAMPLE4:    LEA    EX4_VARS(PC),A6
  9.     BSR    INIT_CURSOR    *part of io_lib.s
  10.     LEA    WINDOW_TITLE(PC),A0
  11.     BSR    OPEN_WINDOW    *PART OF IO_LIB.S
  12.     MOVE.L    A0,WINDOW_HANDLE(A6)    *OPEN_WINDOW RETURNS A HANDLE TO THE WINDOW
  13.  
  14.     MOVE.L    #10,D0    *ADD 10 AND 20 AND 30
  15.     ADD.L    #20,D0
  16.     ADD.L    #30,D0
  17.  
  18.     BSR    PRINTNUM    *part of io_lib.s - PRINTS D0
  19.     BSR    WAIT_KEY    *WAIT FOR A KEY TO BE PRESSED
  20.     MOVE.L    WINDOW_HANDLE(A6),A0    *GET THE HANDLE FOR THE WINDOW
  21.     BSR    CLOSE_WINDOW    *CLOSE THE WINDOW
  22.     RTS
  23.     INCLUDE    IO_LIB.S
  24. ****VARIABLES
  25. WINDOW_HANDLE:    EQU    0    *WINDOW HANDLE .L
  26. EX4_VARS:    DS.B    4    *SPACE FOR 1 LONG
  27. WINDOW_TITLE:    cstring    "EXAMPLE 4"    *cstring is the same as dc.b and putting a zero byte on the end
  28.     align            *must be followed by an "align" directive.
  29. ************************END OF EXAMPLE4********************
  30.